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A estruturação de um programa é uma 
técnica que facilita a compreensão de 
seu funcionamento e permite tornar 
mais eficiente e simples sua operação. 
Aprenda a utilizá-la em BASIC. 


O interpretador BASIC padrão, dis- 
ponivel na maioria dos micros, é simples 
de usar, mas possui poucas estruturas de 
programação, o que dificulta a elabo- 
ração de programas estruturados. 

As estruturas são “blocos de constru- 
ção" da lógica de um programa, e são 
utilizadas para proporcionar-lhe uma 
forma coerente e de fácil compreensão. 
No BASIC padrão, as principais estru- 
turas de programação lógica são repre- 
sentadas pelas declarações IF... THEN, 
FOR...NEXT, GOTO e GOSUB. Já vi- 
mos como empregar individualmente a 
maioria delas; examinaremos agora co- 
mo colocá-las juntas de uma maneira le- 
givel e ordenada. 

Em programas curtos, a estruturação 
não é uma questão muito importante; 
O problema aparece quando se preten- 
de elaborar um programa longo ecom- 
plexo, do ponto de vista lógico (desvios). 
Nesse caso, se você escrever uma parte 
do programa e depois acrescentar mais 
e mais coisas a ele, provavelmente aca 
bará se perdendo. 

Para evitar que isso aconteça, habr 
tue-se a projetar detalhadamente seu 






1. Sistema de indexação 





Inicializar 


programa, antes de começar a digitá-lo. 
Comece por escrever o que pretende que 
o computador faça, de um modo bem 
geral. Por exemplo: 


Sistema de indexação 


O programa tem por objetivo proces- 
sar em memória registros que poderão 
ser criados, atualizados, apagados, clas- 
sificados e listados. Os registros serão 


acessíveis por meio da utilização de uma 


2. Módulo simples 








3. 


Série de módulos 


Guardar O arquivo 
de indexação 

























O QUE É PROGRAMAÇÃO 
ESTRUTURADA? 

OS FLUXOGRAMAS 
COMO ESTRUTURAR 
PROGRAMAS EM BASIC 


INICIAR | 


Inicializar 






























Registrar funções 







Guardar 
o arquivo de indexação 














palavra-chave. Todo o conjunto de re- 
gistros poderá ser armazenado e carre- 
gado em um arquivo. 


Este primeiro passo é conhecido co- 
mo especificação do sistema. O passo se- 
guinte consistirá em dividir as especifi- 
cações gerais, acima, em etapas lógicas 
ou módulos.Estes,por suavez,também te - 
rão suas funçõesespecificadas de manei- 
ra geral. As operações envolvidas em ca- 
da módulo provavelmente serão muito 
complicadas; assim, divida-as em seções 
sucessivamente menores, até obter môó- 
dulos tão pequenos que possam ser tra- 
tados de forma simples. A figura | mos- 
tra como isso pode ser feito para o nos- 
so sistema de indexação. 

Cada uma das seções (ou módulos) 
menores não deverá ter, em extensão, 
mais do que uma página de programa, 
ou seja, cerca de 60 linhas. O ideal, po- 
rém, será límitá-las à metade des- 
te tamanho, Eventualmente, 
elas terminarão constituindo 
sub-rotinas do seu pro- 
grama. 

Esse método de 
subdividir um pro- 
blema é conhecido 
como modelo de 
cima para baixo 
ftop-down). Comes 
ça-se do alto (ou 
seja, da descrição 
geral do programa) é avan- 
ça-se até embaixo (isto é, O 
nível mais baixo de módu- 
los). Até aqui, entretanto, O 
programador ainda não de- 
cidiu em que ordem os mó- 
dulos serão executados. 
Esta será a próxima etapa. 


DIAGRAMAS DE BLOCOS | 





A ordem (ou lógica) de execução dos 
módulos de um programa pode ser es- 
pecificada por meio dos diagramas de 
blocos ou fluxogramas. O uso destes 
permite que se ordene o programa de 
uma maneira bem estruturada e clara. 
Para isto, basta seguir um conjunto sim- 
ples de regras. 

A figura 2 mostra como especificar 
um módulo. O programa acompanha as 
linhas na direção das flechas e os retân- 
gulos descrevem o que acontece em ca- 
- da estágio. Se quiser executar uma série 
de módulos em sequência, acrescente 
mais retângulos na ordem correta, en- 
tre O início e o fim (veja a figura 3). 

Um fluxograma como este é ideal pa- 
ra um programa no qual nenhuma de- 
cisão é tomada. No entanto, o poder do 





VERDADEIRA 


Declaração | 


base da tomad; 


computador reside exatamente em sua 
habilidade de fazer escolhas. A familiar 
declaração IF...THEN é a estrutura 
mais frequentemente utilizada para isso, 
na linguagem BASIC. Vamos agora exa- 
minar sua representação e a de outros 
tipos de estrutura em um fluxograma. 
















4. 1F...THEN..ELSE 


o THEN. EE: 





Embora os dive rsOs computadores 
utilizem de maneira diferente a declara- 
ção IF... THEN...ELSE, cla é sempre a 





a de decisões dentro de 
um programa. Representada no flu- 
xograma por um losango (veja figu- 
ra 4), esta declaração é escrita em 


BASIC da seguinte maneira: 


100 IF condição THEN 
declaração 1 ELSE 
declaração 2. 


Ou seja: se a condição for 
verdadeira, será executada a 
declaração 1; caso contrário, 
a declaração 2. 

Note que, no fluxograma, 
só há um ponto de saída para 
a estrutura IF...THEN...EL- 
SE. De fato, cada seção de có- 
digo deve ter apenas uma en- 
trada e uma saída. Esta regra, 


110 


muito importante para a programação 
estruturada, auxilia bastante a testar e 
a eliminar as falhas. 

Nem todas as versões em BASIC, po- 
rém, possuem a partícula ELSE — ela 
não está disponível, por exemplo, nos 
computadores Spectrum, ZX-81, Apple 
ou TK-2000. Nesses casos, para evitar 
que a estrutura passe a ter mais de uma 
saída, o ELSE pode ser simulado 
utilizando-se o GOTO: 

100 su. 

110 IF condição THEN GOTO 140 
120 declaração 2 

130 GoTo 150 

140 declaração 1 

LSO = 


É claro que os números das linhas 
não precisam ser iguais aos do exemplo. 
Além disso, pode-se incluir mais de uma 
declaração nas partículas THEN e EL- 
SE.Veja, a seguir, uma seção de progra- 
ma para classificar dois números den- 
tro de determinada ordem. Ela consti- 


fui a base para uma rotina de classifica- 
'ção alfabética que será dada adiante. No 


caso especifico, a partícula ELSE pos- 


| sui quatro declarações: 
oo IF 


primeiro<=segundo THEN 


GOTO 160 
temporario=primeiro 
primeiro=segundo 
segundo=temporario 
ordemS$="errado” 


LET 
LET 
LET 
LET 


120 
130 
140 
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5. IF...THEN 
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150 GOTO 170 
160 LET ordemS="certo” 
170 


Esta seção também pode ser escrita 
utilizando-se o ELSE, mas ele deverá es- 
tar totalmente contido em apenas uma 
linha. As declarações múltiplas serão 
permitidas desde que estejam separadas 


por dois pontos: 

100 IF primeiro>segundo THEN 
temporarios=primeiro : 
primeirossegundo: segundos 


temporario:ordemS="errado” 
ELSE ordem$="certo” 

Não é fácil ler ou entender programas 
que utilizam declarações longas como 
esta — assim, sempre que possível, deve- 
se evitá-las. 

Finalmente, em alguns casos, não se- 
rá necessário usar partícula ELSE. O 
fluxograma se parecerá com o da figu- 
ra 5 e será redigido desta maneira: 
100 IF 

ção. 
que é, simplesmente, a própria declara- 
ção IF...THEN 


condição THEN declara- 





ESTRUTURAS EMBUTIDAS 


É possível embutir uma linha IF... 
THEN...ELSE dentro de outra declaração 
IF... THEN...ELSE. Ou seja, a consequên- 
cia de um THEN ou de um ELSE tam- 
bém poderá ser um outro IF, e assim por 
diante. E o caso da seção de programa 
abaixo, que executa a contagem de quan- 
tas partidas dois jogadores ganharam e 
imprime os resultados após cada jogo: 








VERDADEIRA 


IF TI<>T2 THEN GOTO 130 
PRINT" EMPATOU!” 

GOTO 190 

IF TlI<T2 THEN GOTO 170 
PRINT"O JOGADOR 1 GANHA” 
LET Pl=Pl+1 

GOTO 190 

PRINT"O JOGADOR 2 GANHA” 
LET P2=P2+1 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


Todas as estruturas podem ser embu- 
tidas em qualquer combinação e, na teo- 
ria, em qualquer profundidade. No en- 
tanto, quanto mais você as embute, me- 
nos legivel se torna o programa; assim, 
é razoável estabelecer um limite de pro- 
fundidade de três ou quatro estruturas. 
Se precisar embutir mais estruturas, sub- 
divida o programa em módulos ou sub- 
rotinas menores. 

Examinando o último programa, vo- 
cê observará que é difícil acompanhá-lo, 
ainda que esteja perfeitamente estrutu- 
rado. Uma maneira prática de tornar 
mais legíveis as declarações embutidas é 
recuar (indentar) as linhas do programa. 
Isso só é viável nos computadores das li- 
nhas TRS-80, TRS-Color, Spectrum e 
MSX:; neles, você poderá reescrever o úl- 
timo programa da forma que se segue: 


1C0 IF TI<>T2 THEN GOTO 130 


110 PRINT" EMPATOU!” 

120 GOTO 190 

130 IF TI<T2 THEN GOTO 170 

140 PRINT"O JOGADOR 1 GANHA” 
150 LET Pl=Pl+1 

160 GOTO 190 

170 PRINT"O JOGADOR 2 GANHA” 
180 LET P2=P2+1 

190 cos 


Declaração 


6. Laço WHILE...DO 


A introdução de linhas em branco em 


diferentes seções e a utilização de decla- 


rações REM constituem outras manei- 
ras de tornar mais clara a estrutura de 
um programa. Para entrar as linhas em 
branco nos computadores Spectrum, 
basta digitar o número da linha seguida 
de um espaço e, em seguida, pressionar 
< ENTER> ou <RETURN>. Ao es- 
crever programas no TRS-80, TRS- 
Color ou MSX, você poderá obter um 
efeito semelhante digitando um apoóstro- 
fo ('), ao invés de dar o espaço. 


WHILE...DO 





Outra declaração importante em pro- 
gramação estruturada é a WHILE...DO, 
que permite a repetição em um progra- 
ma e é um dos recursos mais úteis para 
se criar um laço. Esta declaração diz ao 
computador que faça (DO) repetida- 
mente uma coisa enquanto (WHILE) 
uma certa condição for verdadeira. Se 
seu computador não possui as palavras 
WHILE e DO, você pode inventar uma 
estrutura que faça a mesma coisa, utili- 
zando IF...THEN e GOTO. A redação, 
em BASIC, é a seguinte (veja o fluxo- 
grama correspondente na figura 6): 


100 ... 

110 IF NOT condição THEN GOTO 
140 

120 declaração 

130 GOTO 110 

140 ... 


Note que a linha 100 lê a condição IF 
NOT..., ou seja, verifica se a condição 
não é verdadeira. O procedimento é 
oposto do normal, ao qual você estã 
acostumado, mas não tem problema. Se 
a condição for A=B então NOT ( A=B), 
será equivalente a A< >B. Do mesmo 
modo, NOT (A <B) será A> =B e assim 
por diante. Na verdade, você poderá es- 
crever NOT (A=B) se quiser, e o com- 
putador entenderá o que você quer dizer. 

Eis aqui o exemplo de um programa 
curto (para cronometrar O cozimento de 


um ovo) que utiliza um laço WHILE: 


| 


5 CLS 

10 PRINT AT 3,11;"CONTADOR” 
20 INPUT "Quantos minutos voc 
e quer?",t 

30 PRINT AT 7,5;"Pressione qu 
alquer tecla para come 


car” 

40 PAUSE O 

50 CLS 

BO PRINT FLASH 1;AT 10,10;” 
TEMPO” 


70 POKE 23672,0: POKE 23673,0 





“10 LOCATE 10, 


80 LET time=PEEK 23672+256* 


PEEK 23673: IF time>t*50*60 
THEN GOTO 110 

20 PRINT aT 14, 10; INT (time/ 
50);" segundos” 

100 GoTo BO 

105 REM fim do loop WHILE 
110 PRINT FLASH 1;AT 14,10;" 


TERMINADO! ” 
120 SOUND .5,20 


Da 


5 CLS 
10 LOCATE 10,3: PRINTTCONTADOR D 
E TEMPO” 

20 LOCATE 0,6: INPUTTQUANTOS MIN 
UTOS VOCÊ QUER" ;T 





- Escolhas múltiplas 


30 PRINT:PRINT”. 
PRESSIONE QU 
ALQUER TECLA 
PARA COMEÇAR” ; 
40 IF INKEY$-= 
""THEN 40 

50 CLS 

60 LOCATE 10, 15: PRINT"CONTANDO. 


e TIME=Q 

75 REM COMEÇA O LOOP WHILE 

60 IF TIME>T*3600 THEN GOTO 110 
90 LOCATE 12,17:PRINTINT(TIME/6 
0);"seg.” 

100 coTo 80 

105 REM FIM DO LOOP WHILE 

19: PRINTTESTA PRO 
NTO!* 

120 BEEP 


5 CLS 

10 PRINT 643," CONTADOR” 

15 LET ES=CHR$ (27) 

20 PRINT €129,;: INPUT"QUANTOS M 
INUTOS VOCE QUER ?";T 


30 PRINT €196," PRESSIONE QUALQU 
ER TECLA PARA COMECAR” 
40 AS=INKEYS:IF A$="" THEN GOTO 
40 

50 CLS 


60 PRINT €238, 
70 TIMER = O 
75 REM COMECO DO LACO "WHILE" 


“TEMPO” 





=: 
F a af 
as 
= [ y 


80 IF TIMER>T*3000 THEN GOTO 11 
0 

90 PRINT 6298, INT(TIMER/50) 
GUNDOS” 

100 GoTo 80 

105 REM FIM DO LACO "WHILE" 
110 PRINT €364," TERMINADO!” 
120 SOUND 180,3 












” NENHUMA 


ESCOLHAS MÚLTIPLAS | 


Normalmente, as estruturas IF... 
THEN e WHILE...DO são suficientes 
para a maioria dos programas. No en- 
tanto, existem algumas estruturas adi- 
cionais que tornam a programação mais 
fácil. Por exemplo, muitos programas 
apresentam mais de dois cursos de ação 
possíveis para um pontodeterminado 
Isso poderia ser resolvido com o empre / 
go de IF... THEN embutidos; é mais/ 
conveniente, porém, utilizar a es- 
trutura CASE (caso) — como é 
conhecida. Ela classifica cada 
opção em ordem e direciona 
o computador a uma série de 
cursos de ação possíveis. 4 
grande maioria dos inter- [5 
pretadores BASIC exis- 
tentes para micros não 
inclui a declaração CA- 
SE, mas ela pode ser 
simulada por outros 
comandos padrão. 

O fluxograma 
para uma estru- 
tura CASE é 
mostrado na fi- 
gura 7 e, em BA- 
SIC, um progra- 
ma típico seria: 






Oo ee =" fra 


100 
110 
120 
130 
140 
150 
ido” 
160 GOTO 240 

170 PRINT "CRIAR REGISTRO” 
B 1000 

180 GgoTo 240 

190 PRINT “MODIFICAR REGISTRO”: 
GOSUB 2000 

200 GOTO 240 

210 PRINT "APAGAR 
URB 3000 

220 GOTO 240 

230 PRINT "LISTAR REGISTROS” :GO 
SUB 4000 

240 REM FIM DO CASE 


REM COMANDO CASE 

IF CS$="C”" THEN GOTO 170 

IF C$="M" THEN GOTO 190 

IF CS$="A” THEN GOTO 210 

IF CS$="L” THEN GOTO 230 
PRINT "comando nao reconhec 


:GOSU 


REGISTRO” :GOS 


Pode-se também fazer múltiplas es- 
colhas por meio das declarações 
ON...GOTO e ON...GOSUB. Entretan- 
to, quando utilizar ON...GOTO, veri- 
fique se cada uma das opções direciona 
você ao final da seção. Na sub-rotina 
abaixo, por exemplo, foi necessário usar 
um GOTO 1210 após cada opção, para 
direcionar o programa para o fim da ro- 
tina. Com uma declaração CASE tal 
procedimento seria desnecessário. 


1000 REM SUBROTINA PARA POLIGON 
os 

1010 INPUT"QUANTOS LADOS VOCE Q 
VER?" ;N 



























Declaração 


FALSA 


8. Laço REPEAT...UNTIL 


1020 ON N-2 GOTO 
+1160,1180,1200 


1060,1100,1140 


1030 PRINT "EU NAO SEI O NOME D 

E UM” 

1040 PRINT"POLIGONO COM “;N;" L 

ADOS.” 

1050 GOTO 1210 

1060 PRINT "E UM TRIANGULO.” 
"UM TRIANGULO COM OS 


1070 PRINT 











AA 


LADOS IGUAIS CHAMA-SE” 
1080 PRINT "TRIANGULO EQUILATER 
Õ.” 

1090 GOTO 1210 

1100 PRINT "E UM QUADRILATERO." 
1110 PRINT "UM QUADRILATERO COM 
OS LADOS” | 
1120 PRINT "E ANGULOS IGUAIS CH 
AMA-SE QUADRADO. ” 
1130 GOTO 1210 
1140 PRINT "E UM 
1150 GOTO 1210 | 
1160 PRINT "E UM HEXAGONO."” 
1170 GOTO 1210 

1180 PRINT "E UM HEPTAGONO.” 
1190 GOTO 1210 

1200 PRINT "E UM OCTOGONO.” 
PRINT 
1220 RETURN 


PENTAGONO. ” 


Como se trata de uma sub-rotina, vo- 
cê ainda não poderá rodá-la. O progra- 
ma para chamar a rotina será dado na 
próxima seção. 


REPEAT...UNTIL 





A declaração REPEAT... UNTIL 
também é uma estrutura muito útil pa- 
ra fazer o programa repetir um grupo 
de comandos (se seu computador não 
possui esses comandos, poderá simulá- 
los por meio de outros). Nesse caso, ao 
contrário do WHILE...DO, o laço sem- 
pre é executado pelo menos uma vez. 
Veja o símbolo correspondente no flu- 
xograma da figura 8 e compare-o à fi- 


gura 6. Em BASIC, será escrito assim:/ 








* Estabelecer as variáveis |, 
min, val, max 





110 declaração 
120 IF NOT condição THEN GOTO 
110 


130 


Utilizando a sub-rotina do último 
exemplo, você podera escrever um pro- 
grama utilizando um laço do tipo RE- 
PEAT, como o seguinte: 


10 PRINT "VOU DIZER OS NOMES” 
20 PRINT "DE ALGUNS POLIGONOS.” 
30 REM COMECO DO LACO 
40 GOSUB 1000 
50 INPUT "VOCE QUER OUTRO NOME 
7" ;AS 
60 IF LEFTS(AS,1)="S” THEN GOTO 
30 
70 PRINT "TCHAU !”":END 
A linha 1000 é a sub-rotina de poli- 
gono dada na seção anterior. 





* LAÇOS FOR...NEXT 


Talvez você não tenha percebido, 
mas o familiar laço FOR...NEXT é ape- 
nas um caso especial do laço WHILE... 
DO, Ele pode ser utilizado quando se 
conhece antecipadamente o número de 
vezes que o laço deverá ser repetido, 
pois esta informação deve ser especifi- 
cada logo no início. A variável que man- 
tém a contagem do número de vezes ao 
redor do laço é conhecida como varid- 
vel de controle. 










9. Laço FOR...NEXT 


ESSE 


Um fluxograma para o laço FOR... 
NEXT é semelhante ao que se vê na fi- 
gura 9. Comparando-o com o laço 
WHILE da figura 6, observa-se que tem 
a mesma estrutura geral. Em BASIC é 
descrito assim: 


100 FOR ismin TO max STEP val 
110 declaração 
120 NEXT à 


Não se deve saltar para fora de um 
laco FOR, utilizando uma declaração 
GOTO, já que o interpretador BASIC 
não tem como identificar o que foi fei- 
to. Será fácil saltar de volta dentro de 
um laço, no programa, mas a compreen- 
são de tal estrutura é muito dificil, As- 
sim, evite este procedimento. 





COMO COLOCAR TUDO JUNTO 


As estruturas vistas neste artigo são 
as mais conhecidas e importantes, e po- 
dem ser utilizadas em qualquer tipo de 
programa. Mas, para completãár o pro- 
grama, você deverá ainda especificar as 
variáveis que irá utilizar e verificar se as 
variáveis dos diferentes módulos não en- 
trarão em choque umas com as outras. 
Além disso, será preciso especificar to- 
das as entradas e saídas necessárias, tes- 
tar cada um dos módulos e encadeá-los 
todos juntos. No próximo artigo você 
verá como executar todas estas tarefas, 
mantendo seu programa legivel e estru- 
turado. Como exercício, examine alguns 
programas já publicados em INPUT e 
veja se consegue identificar as estruturas 
utilizadas. Em seguida, tente melhorar o 
programa, tornando-o mais estruturado. 





O MAPA 





Acompanhe a criação de uma aventura 
e, depois, crie seu próprio jogo. 

Aqui, os primeiros passos: o 
desenvolvimento do roteiro e a 
confecção do mapa dos locais. 


Antes de programar um jogo, é im- 
portante elaborar minuciosamente o ro- 
teiro, para evitar dificuldades posterio- 
res, como erros e pontos obscuros a se- 
rem esclarecidos. 

Para que você se familiarize com es- 
ta etapa do trabalho, acompanhe conos- 
co o desenvolvimento de um programa 
de aventuras típico. A história que to- 
mamos como exemplo se passa em um 
país distante, onde o jogador deve en- 
contrar o olho perdido de um legendá- 
rio totem inca. Se você seguir passo a 
passo as etapas percorridas para a mon- 
tagem desta aventura, sentirá maior fa- 
cilidade ao projetar seu próprio jogo. 


| O ROTEIRO Ê 


Em primeiro lugar o programador 
precisa criar um “mundo” que combi- 
ne com a estrutura básica do roteiro. Es- 
te mundo compõe-se de uma série de ob- 
jetos, cada qual destinado a desempe- 
nhar um papel específico. Além disso, 
deve criar alguns mistérios e problemas 
para o jogador resolver. 

Não é necessário fazer tudo isso de 
uma vez; à medida que se pensa na his- 
tória, seus contornos vão se tornando 
mais nítidos, o que facilita a definição 
dos detalhes. Comece, portanto, rascu- 
nhando o roteiro básico. 

Nosso jogador encontra-se em pés- 
sima situação financeira e, por isso, sai 
em busca do fabuloso olho inca (de al- 
tíssimo valor), escondido em algum lu- 
gar do mundo da aventura. Infelizmen- 
te, a Secretaria da Receita enviou um fis- 
cal para acompanhar o caso. O papel 
desse personagem é bastante semelhan- 
te ao do pirata de outras aventuras — 
ou seja, cabe-lhe arruinar o infeliz jo- 
gador. Sua aparição pode acarretar dois 
acontecimentos. Se o jogador estiver le- 
vando consigo um objeto, o fiscal o con- 


DA AVENTURA 









fiscará para amortizar sua enorme divi- 
da com a Secretaria. Caso o jogador não 
tenha encontrado nenhum objeto (não 
podendo, portanto, pagar), o fiscal o 
prenderá numa masmorra, 

Este é o esquema básico da aventura. 
Resta, agora, trabalhar alguns detalhes 
— por exemplo, os objetos que serão en- 
contrados na busca. No nosso jogo, de- 
cidimos contrariar a regra geral de que 
todos os objetos devem ser úteis ao de- 
senvolvimento da aventura. Desta vez, 
haverá um objeto sem nenhuma utilida- 
de na busca empreendida pelo jogador: 
trata-se de algo pesado (um tijolo, por 
exemplo), que irá causar a morte de 
quem tentar atravessar o rio a nado, 
carregando-o. 

O objeto mais importante de todos 
será o olho. Para aumentar o Interesse 
do jogo, convém imaginar uma manei- 
ra de disfarçá-lo ou escondê-lo. Pode- 
riamos colocá-lo dentro de um baú ou 
de uma catacumba, mas existem solu- 
ções mais sutis para enganar o jogador. 


Assim, em vez de esconder o olho num 


lugar que obviamente contém algo de 
valor, vamos deixá-lo dentro de um sa- 
quinho de bolas de gude. O aventureiro 
não irá a lugar nenhum se tentar jogar 
com as bolinhas de gude! 
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Um dos artifícios favoritos em jogos 
de aventura é o quarto escuro, no qual 
todas as coisas horríveis podem aconte- 
cer. Esta aventura não será uma exce- 
ção. Sem a lâmpada — que deverá des- 
cobrir em algum misterioso lugar — o 
pobre aventureiro não encontrará as sai- 
das, ficando em péssima situação. 

Talvez isso seja um tanto injusto, já 
que o jogador não receberá nenhum avi- 
so de perigo iminente, nem terá condi- 
ções de sair do quarto escuro, a não ser 
que tenha encontrado a lâmpada. Para 
dar uma melhor oportunidade ao aven- 
tureiro, permitindo-lhe enfrentar pelo 
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menos um dos perigos — o fiscal —, 
uma arma de fogo estará escondida em 
algum lugar. 

Finalmente, para aumentar a diver- 







j são, haverá uma sala do trono e uma 
? corrente. A sala do trono não é exata- 

E mente o que parece. Na verdade, o tro- 

; no em questão se transforma num sim- 

y ples sanitário, se o jogador não estiver 

y de posse do olho. E, caso puxe a cor- 

j rente, provocará uma descarga que o fa- 

' rá desaparecer, tirando-o mais depres- 
E sa da aventura. 

: Falta ainda estabelecer um dos prin- 5 


cipais elementos do jogo: as condições 








necessárias à vitória. Não existe saída 
evidente do Sir da aventura e boa 
parte do quebra-cabeças consiste em 
descobrir como escapar com a peça do 
totem. Assim, para ganhar o jogo, O 
aventureiro obviamente precisará ter en- 
contrado o olho — não apenas o saqui- 
nho de bolas de gude. Para dificultar um 
pouco mais, ele deverá também estar na 
sala do trono. Puxar a corrente desta vez 
não fará com que ele entre pelo cano! 

Transformar a saída em risco, sob 
condições diferentes, apresenta a vanta- 
gem de desencorajar o jogador a tentá- 
la constantemente; desta maneira pro- 
longa-se o jogo todo. 





A AVENTURA ATÉ AQUI 


Antes de começar o mapeamento, 
convém fazer uma recapitulação, listan- 
do os elementos até agora envolvidos na 
aventura. Assim, não se corre o risco de 
perder o fio da meada. 


PERSONAGENS 

e Aventureiro 

e Fiscal da Receita — deve surgir 
aleatoriamente 


OBJETOS 

º Globo ocular — escondido no 
saquinho de bolas de gude. 

e Tijolo — peso que mata o 
aventureiro caso este tente 
atravessar o rio a nado 

* Lâmpada — necessária para se achar 
a saida do quarto escuro 

º Arma — para matar o fiscal da 
Receita 

e Corrente — tira o aventureiro do 
jogo se este chegar à sala do trono 
e puxá-la, sem estar de posse do olho 


LOCAIS 

e Rio 

* Quarto escuro 
e Sala do trono 


Até aqui, fixamos apenas três dos lo- 
cais da aventura, em função do que ne- 
les deve acontecer. Podemos muito bem, 
neste ponto, tomar novas decisões. Mas, 
seja como for, o próximo passo consis- 
 tirá em encaixar todos os elementos num 
mesmo mapa do mundo da aventura. 


COMO FAZER O MAPA 





O primeiro mapa será composto por 
uma série de quadrados ligados entre si 
por setas, como mostra a ilustração des- 
ta página. Cada quadrado representará 
um ambiente ou local da aventura — lo- 
cal talvez seja o termo mais adequado, 
por sua abrangência. Pode designar des- 
de a cabeça de um alfinete escondido na 
barra do vestido da rainha, até uma 
imensa planície. Todos os locais devem 
ser incluídos no mapa: os da lista preli- 
minar e outros que se façam necessários 
para completar O jogo. 

Ao esboçar o mapa, não se esqueça 
de assinalar a direção em que se pode 
ira partir de cada local. Se quiser, in- 
clua saídas que só funcionem em uma 
direção — acompanhadas de mensa- 
gens, como por exemplo: 


A PORTA BATE, 
FECHANDO-SE ATRÁS DE VOCÊ 


As faixas listradas que saem do quar- 
to escuro indicam que o jogador só po- 
derá ir na direção indicada quando de- 


Floresta 


Arma de fogo 
na margem oposta 


Tijolo 
terminadas condições forem satisfeitas. 
No nosso caso, a condição é estar de 
posse da lâmpada acesa, para enxergar 
as saidas. 

Não é fácil prever o número de locais 
que determinada quantidade de memo- 
ria RAM pode conter. A dificuldade es- 
tá no próprio programa de aventura, 
que inclui muitos elementos, todos pre- 


“Alho 


cisando de memória — descrições de lo- 
cais, palavras que o programa deve re- 
conhecer, o número de objetos e o pa- 
pel de cada um deles, o número de enig- 
mas e sua complexidade, etc. 

Depois de ter programado algumas 
pequenas aventuras e verificado o espa- 
ço que ocupam, ficará mais fácil calcu- 
lar o que é possível encaixar na memó- 
ria do seu computador. 

Quem tiver um micro de 16K logo 
descobrirá que é impossível escrever 
uma aventura em grande escala dispon- 
do de tão pouca memória RAM. No en-. 
tanto, a aventura que desenvolveremos 
aqui inclui um número reduzido de lo- 
cais — doze, ao todo — e, portanto, não 
dará esse tipo de dor de cabeça. 

Um mapa para a Busca do Olho Inca 
pode ser semelhante ao de nossa ilustra- 
ção. As ligações entre os locais foram 
todas previstas, e o ponto de partida es- 
tabelecido. Isso é muito importante, 
pois afeta a maneira de se abordar a 
aventura, a ordem em que os objetos são 
descobertos e também a tentativa de 
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O primeiro mapa da aventura mostra todos 
os locais planejados em suas posições 
relativas. As setas vermelhas indicam as 
saídas que estão constantemente abertas; 
as setas listradas indicam saídas que só 
podem ser utilizadas sob condições 
especiais — neste caso, quando o 
aventureiro estiver de posse da lâmpada. 





Saquinho de bolas de gude: 
Olho — no saquinho 









se resolver o quebra-cabeças. 

Os objetos também estão assinalados 
em seus locais. Os que aparecerão pos- 
teriormente — como, por exemplo, o 
olho inca — devem ser listados à mar- 
gem do mapa. 


DO MAPA AOS SETORES 





Uma vez concluído o mapa, os dados 
podem ser transferidos para os setores. 

Em geral, no planejamento de jogos 
de aventura, Os setores são organizados 
em dois tipos de conjunto: um que tem 
por base quadrados e outro que tem por 
base octógonos (veja as ilustrações na 
página 230). A escolha de qual utilizar 
dependerá do número de saídas de ca- 
da local. 

O tipo mais simples de aventura in- 
clui saídas em quatro direções: norte, 
sul, leste e oeste (como na Busca do 
Olho). Nesse caso, deve-se transferir os 
dados para um conjunto de setores qua- 
drados, de modo que se enquadrem nas 














condições do mapa proposto. A manei- 
ra de fazê-lo será detalhadamente expli- 
cada mais adiante. 

Se a aventura incluir saidas a noroes- 
te, nordeste, sudeste e sudoeste, deve- 
se utilizar o conjunto de setores octogo- 
nais. O emprego desse tipo de conjunto 
é, porém, muito complicado. 

Existe ainda a possibilidade de se in- 
cluir, na aventura, deslocamentos para 
cima ou para baixo. Nesse caso, a me- 
lhor solução é a utilização de conjuntos 
distintos de setores para cada “nível” 
da aventura, 

A Busca do Olho tem como base um 
conjunto do tipo quadrado — ou seja, 
permite saídas somente para norte, sul, 
leste e oeste. A não ser que haja uma 
real necessidade de outras direções, es- 
se tipo de aventura é bastante satisfató- 
rio, permitindo, inclusive, que se intro- 
duza uma certa confusão no direciona- 
mento das saidas. Por exemplo, pode- 
se acrescentar a seguinte frase a uma 
descrição: 


EXISTE UMA ESCADA 























Quarto escuro 










Md. 
TILEes 


ap 
LE aa 
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e Sia to 
Eid, be 


Lâmpada 


Guarda-louça 


h 


Corrente à, 


Sala do trono 


e, para descer as escadas, bastará usar 
a resposta normal OESTE. 


| : OS SETORES | 


Nossa aventura utilizará um conjun- 
to de setores composto de seis por qua- 
tro quadrados — verifique o mapa pro- 
posto, para cima e para baixo, para a 
esquerda e para a direita. Antes de ini- 
ciar a transferência de todos os detalhes 
para os setores, certifique-se de que ca- 
da quadrado foi devidamente numera- 
do. Deve-se começar com o número 1, 
no alto à esquerda, e prosseguir até a 
parte inferior à direita, 

Uma vez numerados os quadrados e 
transferidos os detalhes, o conjunto dos 
setores terá uma aparência semelhante 
à da ilustração da página 231. 





COMO COMEÇAR O PROGRAMA 


Depois de estruturar o roteiro bási- 
co da história e de completar os setores, 
pode-se dar início ao programa. 

A primeira etapa será a digitação das 
descrições dos locais, tendo como base 
o setor proposto. Deve-se decidir a ex- 
tensão das descrições e procurar trans- 
mitir o melhor possível a atmosfera da 
aventura, sem desperdiçar memória. 

Junto com as descrições dos locais, 
o computador deverá receber as infor- 
mações sobre as direções em que se en- 
contram as saídas. 
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Parte de um conjunto de setores quadrados. 
Neste tipo de conjunto, pode-se planejar 
aventuras utilizando quatro saidas: para 
norte, sul, leste e oeste. 


Veja, abaixo, as primeiras seções do 
programa. O número alto das linhas tem 
a finalidade de assegurar espaço para as 
seções anteriores, à medida que o jo- 
go for se desenvolvendo. Digite a seção 
e preserve-a em fita: 


5000 REM ** DESCRICAO DO LOCAL 
** 


5010 REM ** LOCAL 4 ** 

5020 PRINT "VOCE ESTA DO LADO D 
E FORA DE UM GRANDE PREDIO” 

5030 LET N=0: LET E=0: LET 
LET W=0: RETURN 


=): 


5040 REM ** LOCAL 7 *x* 

5050 PRINT "VOCE ESTA A BEIRA D 
E UM GRANDE RIO” 

5060 LET N=0: LET E=1; LET S-0: 


LET W=0: RETURN 


5070 REM ** LOCAL 8 ** 


5080 PRINT "VOCE ESTA NUMA FLOR 

ESTA PETRIFI-CADA” 

5090 LET N=0: LET E=0: LET S=l: 
LET W=1: RETURN 


5100 REM ** LOCAL 10 ** 

5110 PRINT "VOCE ESTA NUMA SALA 
EMPOEIRADA” 

5120 LET N=1l: LET E-l: 
LET W=0: RETURN 

5130 REM ** LOCAL 11 ** 
5140 PRINT "VOCE ESTA NUMA SALA 
ESCURA” 

5150 IF LA<>1 THEN LET N=O0: LE 

T E=O0: LET S=0: LET W=0: PRINT 
" ESTA MUITO ESCURO PARA VER AS 

SAIDAS”": LET DA=1: RETURN 

5160 LET N=0: LET E=0: LET Sm=l: 
LET W=1: RETURN 

5170 REM ** LOCAL ]4 ** 

5180 PRINT "VOCE ESTA EM UM ATA 
LHO ENLAMEADO” 

5190 LET N=1: LET E=l: 
LET W=0: RETURN 

5200 REM ** LOCAL 15 ** 
5210 PRINT “VOCE ESTA NA ENTRAD 


LET Sl: 


LET S5=0: 


Parte de um conjunto de setores octogonais 
— utilizado quando se quer incluir saídas 
para noroeste, nordeste, sudoeste é 
sudeste. 


à DA CIDADE OCULTA” 


5220 LET N=0: LET E=1: LET S=0: 
LET W=1: RETURN 

5230 REM ** LOCAL 16 ** 

5240 PRINT "VOCE ESTA NO HALL D 

E ENTRADA” 

5250 LET N=-1; LET E=l: LET Sel: 
LET W=1: RETURN 

5260 REM ** LOCAL 17 ** 

5270 PRINT "VOCE ESTA NO PATIO* 
5280 LET N=l: LET E=l: LET S=0: 
LET W=1: RETURN 

5290 REM ** LOCAL 18 ** 

5300 PRINT "VOCE ESTA NO JARDIM 
5310 LET N=0: LET E=0: LET Sm=1: 
LET W=1: RETURN 

5320 REM ** LOCAL 22 ** 

5330 PRINT "VOCE ESTA NO GUARDA 
-LOUCAS” 

5340 LET N=1: LET E=0:; LET S=0: 
LET W=0: RETURN 

5350 REM ** LOCAL 24 ** 

5360 PRINT "VOCE ESTA NA SALA D 

O TRONO” 

5370 LET N=1: LET E=0: LET S-=0: 
LET W=0: RETURN 


TITS 


5000 REM**DESCRICAO DOS LOCAIS* 
od 

5010 REM**LOCAL 4** 

5020 PRINT” VOCE ESTA DO LADO D 
E FORA DE UMA GRANDE CONSTRU 
CAO” 
5030 N=0:E=0:S=1:W=0:RETURN 
5040 REM**LOCAL 7** 

5050 PRINT” VOCE ESTA A BEIRA D 
E UM GRANDE RIO" 


5060 N=0:E=1:5=0:W=0:RETUAN 
5070 REM**LOCAL B** 
5080 PRINT” VOCE ESTA NUMA FLOR 


ESTA PETRIFI CADA” 


5090 N=0:E=0:5=1:W=1:RETURN 
5100 REM**LOCAL 10** 
5110 PRINT” VOCE ESTA NUMA SALA 


MUITO SUJA” 


5126 N=1:E=1:5=1:W=0:RETURN 
5130 REM**LOCAL 11** 

5140 PRINT” VOCE ESTA NUM QUART 
O ESCURO” 

5150 IF OB(6)<>-1 OR LAS>1 THEN 
N=0:E=0:S=0:W=0:PRINT” ESTA MU 
ITO ESCURO PARA VER AS SAIDAS 
* : RETURN 

5160 N=0:E=0:S=1:W=1:RETURN 
5170 REM**LOCAL 14** 

5180 PRINT” .VOCÊE ESTA NUM ATALH 
O ENLAMEADO” 

5190 N=1:E=1:5=0:W=0:RETURN 
5200 REM **LOCAL 15** 

5210 PRINT” VOCE ESTA NA ENTRAD 
A DA CIDADE OCULTA” 





5220 N=0:E=1:5=0:W=1:RETURN 
5230 REM**LOCAL 16** 

5240 PRINT” VOCE ESTA NO HALL D 
E ENTRADA” 

5250 N=1:E=1:5=1:W=1:RETURN 
5260 REM**LOCAL 17** 

5270 PRINT” VOCE ESTA NO PATIO” 
5280 N=1:E=1:S5=0:W=1:RETURN 
5290 REM**LOCAL 18** 


5300 PRINT” VOCÊ ESTA NO JARDIM 
N=0:E=0:S8=1:W=1:RETURN 
5320 REM**LOCAL 22* 

5330 PRINT” VOCE ESTA NO GUARDA 
-LOUCAS” 

5340 N=1:E=0:S=0:W=0: RETURN 
5350 REM**LOCAL 24*%* 

5360 PRINT” VOCE ESTA NA SALA D 
O TRONO” 

5370 N=1:E=0:5=0:W=0: RETURN 


5310 


Não se preocupe com o uso repetido 
de comentários REM incluídos na me- 
mória. Nesta etapa inicial do desenvol- 
vimento do programa, o importante é 
saber o que cada trecho do programa 
faz, ou qual o número do local a que de- 
terminada descrição se refere. Os co- 
mentários sempre podem ser eliminados 
posteriormente. Após cada linha de des- 
crição do local, existe outra linha con- 
tendo dados sobre suas possiveis saidas. 
As variáveis N, S, L e O referem-se a 
norte, sul, leste e oeste. Elas podem ter 
um ou dois valores — O significa que não 
há saida naquela direção, ao passo que 
| significa que há uma saída. 

Finalmente, existe um RETURN 
após as seções do programa, pois cada 
descrição de local será chamada por 
uma instrução GOSUB. 

Um IF...THEN extra na seção do 
quarto escuro verifica se o aventureiro 
possui a lâmpada; porém, a descrição 
das variáveis será tratada mais adiante, 
quando analisarmos os objetos. 

No próximo artigo veremos como 
movimentar o jogador pelo mundo que 
criamos. 


Ultima etapa antes da programação. O 
conjunto de setores é uma cópia direta 
do mapa, numa forma que facilita o 
trabalho. 
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“RECUR RSOS GRÁFICOS 
SOFISTICADOS 


Tendo já dominado os princípios ba- 
sicos do desenho na tela, você pode co- 
meçar a empregar alguns recursos gráafi- 
cos especiais, disponíveis no seu compu- 
tador. Comandos como MOVE, PLOT, 
DRAW, PAINT e CIRCLE permitem 
que você solte as rédeas de sua Imagi- 
nação, criando qualquer tipo de imagem 
— de um diagrama explicativo para ilus- 
trar uma mensagem comercial ao cená- 
rio de um excitante jogo de aventuras. 

No artigo da página 113 mostramos 
como utilizar comandos simples para 
criar ilustrações com linhas na tela e, em 
alguns casos, como acrescentar cor. Mas 
você pode sofisticar seu repertório, 
aprendendo outras maneiras de traçar 
pontos, desenhar linhas, triângulos, 
quadrados e círculos. Os comandos aqui 
ensinados — em combinação com cores 
ou não — constituem um eficiente re- 
curso para formar imagens estáticas ou 
até mesmo móveis. 

Embora os vários modelos de com- 
putador utilizem esses comandos de ma- 
neira diferente, todos são capazes de 
produzir alguns efeitos interessantes. As 
exceções são o Apple, o TK-2000, o 
TRS-80€e o ZX-81, cujo BASIC não in- 
clui esses comandos. Entretanto, você 
pode obtê-los acrescentando um cartu- 
cho ROM adequado ou adquirindo pro- 
gramas em disco ou fita. 


ARCOS E CÍRCULOS 


Os arcos e círculos são um dos mais 
úteis “instrumentos” do Spectrum pa- 
ra fazer desenhos na tela. 

Este programa para um campo de 
golfe mostra como empregá-los para de- 
senhar árvores, cercas, água, terrenos 
acidentados e buracos. 

Você pode testar seu progresso na 
medida em que for rodando cada gru- 
po de linhas. Não dê o comando NEW 
toda hora; se você deixar as linhas 1n- 
tactas, obterá a cena mostrada na ilus- 
tração da página 237. 

Antes de começar o trabalho com os 
círculos, porém, convém deixar pronta 
a sede do clube. Para isso, entre estas 
linhas no computador: 





90 BORDER 4: PAPER 4d: CLS 
200 LET w=10: LET 3=50 

210 FOR c=162 TO 174 

220 PLOT INK 2Z;Ww,€ 

230 DRAW INK 2;8,0 

240 LET w=w+2: LET s=8-4 
250 NEXT c 

260 FOR b=14B TO 162 

270 PLOT INK 2:10,Db 

280 DRAW INK 2;50,0 

290 NEXT Db 
295 DRAW 
=11 

300 PRINT INK D;AT 2,2;" 
2,844" PLRT 2,46)” 


As linhas numeradas de 200 a 250 de- 
senham o telhado, utilizando técnicas 
semelhantes às ensinadas no artigo an- 
terior (página 113). Na tela, em 10.162, 
aparece primeiro uma linha de 50 pixels 
de largura. Depois uma largura de 4 
pixels, para cada pixel desenhado. 

Um laço parecido aos das linhas 260 
a 290 desenha as paredes, com duas li- 
nhas extras (na linha 295) para traçar a 
varanda. Em seguida, a linha 300 preen- 
che as janelas pelo método mais simples 
possível — imprimindo um quadrado 
negro, com caracteres gráficos da ROM, 
em três lugares da parede. 


INK 2:;10,- DRAW O, 


"AT 





COMO DESENHAR ARCOS 


No Spectrum, como já foi explicado 
anteriormente (página 115), o comando 
CIRCLE é o instrumento mais simples 
para se desenhar um círculo completo. 

Mas, se quiser somente uma parte do 
círculo, será mais fácil acrescentar um 
número a uma declaração convencional 
DRAW. Pode-se obter uma variedade 
imensa de efeitos por meio dessa decla- 
ração; assim, vale a pena fazer alguns 
experimentos antes de prosseguir. 


10 PLOT 130,30 
20 DRAW 0,10,1 
30 GOTO 20 


(Não se preocupe com a mensagem de 
erro.) 

Como você deve se lembrar, os pri- 
meiros dois números da linha 20 dizem 
ao computador para desenhar uma linha 
do ponto traçado até um ponto 10 pi- 
xels acima dele, O último número, por 
sua vez, determina a curvatura da linha. 


— = - - 





” 
Os computadores domésticos oferecem 
vários recursos ao artista amador. 
Aprenda novas formas de utilizar 

os comandos gráficos em BASIC 

e crie livremente suas ilustrações. 











Informa-se assim, ao computador, qual 
fração do circulo será desenhada. Um 
círculo completo é representado por 
duas vezes Pi (3.1416); portanto, com 
o número 1, obtém-se o desenho de 
aproximadamente um sexto do circulo 
(ou, mais precisamente, 1 dividido por 
duas vezes Pi). Se você tentar modificar 
a linha 20 para: 


20 DRAW 0,10,2 


... Obterá uma série de curvas mais pro- 
nunciadas. Do mesmo modo, 0,10,3 for- 
nece um modelo denteado, e 0,10,4 pro- 
duz parte de uma cerca (ou a metade de 
um tronco de palmeira, dependendo de 
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RECURSOS GRÁFICOS 
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“O COMANDO DRAW 
a UM NAVIO 
EM POUCAS LINHAS 


EE 


DO CSN nn 


E COMO DESENHAR LETRAS 
” MENSAGENS LONGAS 


sua imaginação), enquanto 0,10,6 produz 
uma espiral. Se, no entanto, você tentar: 


20 DRAW 0,10,2*PI 


.. poderá ter uma surpresa! O Spectrum 
desenhará um círculo em que dois pon- 
tos estarão em linha reta. Mas, já que tal 
círculo pode se tornar muito maior do 
que sua sala — na verdade, bem maior 
do que o sistema solar —, o computa- 
dor desenhará apenas a parte do circu- 
lo que é capaz. 
Para o cenário, experimente isto: 


LO PLOT 0,100 
20 DRAW ERND*5+5,0,2 
30 GOTO 20 


A forma obtida assemelha-se à das 
ondas em um mar agitado. Para dese- 
nhar águas calmas, tente RND*10+ 10 
ou mesmo RND*15 + 10. 

Com relação aos círculos e arcos, vale 
ainda lembrar que um número negati- 
vo no final da linha DRAW produzirá 
a imagem-espelho do arco. 

Agora, limpe as linhas de 10 a 30 e 
continue montando o cenário para a pis- 
ta de golfe. 


A CERCA E O LAGO 





O programa da pista de golfe inclui 
dois exemplos de arcos utilizados para 
efeito gráfico — o primeiro compõe a 
pequena cerca em frente à sede do clu- 
be; o segundo, o lago. 

Digite estas linhas: 


310 FOR £f=0 TO 84 STEP 3 
320 PLOT f,142 
330 DRAW 3,0,-3 
340 NEXT É 
350 DRAW 35,-d42: DRAW -12,-6 

O ponto de partida na tela é 0,142. 
A linha 330 desenha uma série de arcos 
estreitos — ou seja, semicírculos com 
apenas 3 pixels de largura — para for- 
mar a cerça. O número obtido € regula- 
do pelo laço FOR...NEXT. 

Agora, entre e rode estas linhas: 


100 LET x=-130: LET y=-125: LET 
z=50 


110 PLOT INK 5;x,0 
120 DRAW INK 5;w,2z,-1.25 
130 LET x=x+l: LET y=y-1l: LET 


2=7-1 











RR e ra 1 


GOTO 170 
LET z=0 


140 IF x>254 THEN 
150 IF z<l THEN 
160 GOTO 110 


Aqui a ilustração é mais complicada. 
Em primeiro lugar, o computador tra- 
ça um ponto de 130 pixels a partir da 
esquerda e O pixel a partir do canto in- 
ferior da tela. Em seguida, desenha uma 
linha no ponto 125 pixels à direita e a 
eleva a 50 pixels do canto inferior da te- 
la, “arqueando” a linha em — 1.25 ra- 
diano, à medida que ela vai se de- 
senvolvendo. 

A partir desse estágio as variáveis en- 
tram em cena. A variável x inicia cada 
linha 1 pixel mais à direita; a variável 
v torna a linha 1 pixel mais curta do que 
a anterior (caso contrário ela ultrapas- 
saria Os limites da tela), enquanto a va- 
riável z faz com que a linha termine | 
pixel abaixo da anterior. 

Eventualmente, é claro, a variável z 
poderá se tornar um número negativo, 
fazendo com que o computador tente 
(mas falhe) imprimir o canto inferior da 
tela. Por isso a linha 150 é necessária: 
ela faz com que todas as pequenas linhas 
no final do programa terminem na linha 
inferior da tela. 


AS ÁRVORES E OS ARBUSTOS 





O programa da pista de golfe tam- 
bem utiliza circulos completos (como 
um substituto para PAINT ou uma de- 
claração similar, disponivel em alguns 
computadores) para produzir árvores e 
arbustos. Estas poucas linhas desenha- 
rão alguns arbustos ao acaso no ''gra- 
mado”: 


400 FOR r=172 TO 168 STEP -1 
410 LET x=RND*45+195 
415 PLOT x,r-2: DRAW 0,-2 


420 
440 
450 


CIRCLE x,r,AND*2+1 
CIARCLE x+10,r,AND*2+1 
NEXT r 


Estas outras linhas produzirão algo 
parecido, no lado direito: 


460 FOR r=-135 TO ,172 STEP 6 
470 LET y=252 

480 CIRCLE vy,r,RND+2 

490 NEXT r 


As árvores, no lado inferior esquer- 
do, são muito grandes e, por isso, não 
se pode desenhá-las aleatoriamente, 
usando DRAW. Assim, utilizamos uma 
técnica diferente: READ...DATA (ve- 
ja páginas 128 a 133): 


FOR w=1 TO 3 
READ a,b 

PLOT a,b 

DRAW 0,-24 
LET f=RND*5+5 


900 
910 
920 
930 
940 


950 CIRCLE a-l0,b+f,f: CIRCLE 
a,b+rf,f: CIRCLE atlO,b+f,f 
960 CIRCLE a-5,b+f*2,€f: 
CIRCLE a+5,b+f*2,tL 

970 CIRCLE a,b+f*3,L 

980 NEXT w 

3000 DATA 20,70,52,85,84,100 


A solução, aqui, foi desenhar primei- 
ro os troncos, de modo descendente, a 
partir dos pontos traçados originalmen- 
te. Desse modo, evita-se que eles apare- 
çam através das “folhagens”. Os tron- 
cos são traçados na tela a 20,70 e assim 
por diante, pelos dados fornecidos pela 
linha 3000. A linha 940 desenha aleato- 
riamente o tamanho das folhagens, en- 
quanto que b+Tf, na linha 950, assegu- 
ra que as séries de circulos ao fundo ini- 
ciem com uma distância razoável acima 
dos troncos. 


TOQUES FINAIS 





O tee propulsor, ou seja, O apoio on- 
de se coloca a bola para a tacada inicial, 
é desenhado por estas linhas: 


1000 LET t=30 

1010 FOR y=0 TO 10 
1020 PLOT t,y 

1030 DRAW -30,30 
1040 LET t=t+2 
1050 NEXT y 


É as linhas abaixo desenharão as ban- 
deirinhas no gramado: 


170 PLOT 220,140 

180 DRAW 0,15: DRAW 8,-3 
DRAW -B,-2 

190 PLOT 22,120 

195 DRAW 0,18: DRAW 9,-3: 
DRAW -9,-2 


Finalmente, você precisará de alguns 
buracos. Na ausência de uma declara- 
ção PAINT, a maneira de desenhá-los 
que oferece os melhores resultados (em- 
bora também seja a mais demorada) é 
começar com uma elipse bem pequena 
e ir aumentando-a, pixel por pixel, até 
atingir um tamanho razoável. 

Como o traçado de elipses será deta- 
lhadamente explicado em um artigo fu- 
turo sobre as funções matemáticas do 
computador, entre e rode estas linhas: 


1495 LET r=l 

1500 FOR x=0 TO 2*PI STEP PI/18 
É) 

1510 PLOT INK 6;168+r*SIN x,14 
r+r*COS x/2.5 

1520 PLOT INK 6;235+r*SIN x,10 
6+r*COS x/2.75 

1530 PLOT INK 6;225+r*SIN x,97 
+r*ºCOs x/2.5 

1540 NEXT x 

1550 LET rer+2 

1560 IF r>20 THEN GoTo 6000 
1570 GOTO 1500 


Alternativamente, você poderá fazer 
os arbustos de um modo mais simples, 
porém mais grosseiro, utilizando blocos 
gráficos. 


nm"; RR, 


“O COMANDO DRAW 








Os comandos CIRCLE e LINE são 
muito úteis para desenhos simples de 
formato regular, requerendo um mínimo 
esforço do programador. Empregá-los 
para desenhos mais complicados, porém, 
tornara seus programas longos e de difi- 
cil manuseio. Imagine o tamanho de um 
programa que desenhasse algo como o 
navio da página 232, usando um coman- 
do LINE para cada linha da ilustração... 

Para contornar esse problema, deve- 
mos utilizar o comando DRAW, que 
permite direcionar a trajetória de uma 
linha enquanto ela está sendo traçada. 
Podemos dizer ao computador que leve 
a linha até uma certa distância à direi- 
ta, até uma outra distância para cima e 
assim por diante. Essas instruções são 
fornecidas dentro de um cordão, o que 
torna o programa muito mais compacto. 

Como exemplo, digite e rode este 
programa; veja como é possível dese- 
nhar um navio com algumas poucas 
linhas. 


no 


10 PMODE 4,1 

20 PCLE 5 

30 SCREEN 1,1 

40 DRAW "BM23,96C0” 

50 DRAW "R28EZUILGUR6EZRSF2D3R3 
UZR7D2R4U9EZR4F2DSRIVZR4VGEIRSD 
a” 

60 DRAW "R3U24L3URBDL4ADZ4RF2R5D 
4R4U4R6USEIRSDIORAUZRAVI4RDIORI3 
U2” 

70 DRAW "R4D1I1R7U3E2R4F2D3RDBR3 
USEZR8D2R6UZR/UEZR6F2D4R4V4EZRS 
FZ” 

80 DRAW "R6DL6DIR24G12L195H4US” 
90 PAINT (127,100),0,0 

100 GOTO 100 


ny 


30 SCREEN 2 

40 DRAW "BM23,96C1" 

50 DRAW "R28EZUILGURG6EZR5SF2DIRI 
UZR7D2R4U9E2ZR4F2D5R3VUZR4V6EIRSD 
8” 

60 DRAW "R3U24L3URBDL4AD24RF2R5SD 
4AR4U4R6UVE3IRSDIORIAUZRAVI4RDIORS 
UZ” 

70 DRAW "R4DI1R/UJEZR4F2D3IRDBRI 
USEZRBD2R6UZR7VEZR6F2D4ARHU4EZAS 
F 2º 

80 DRAW "R6DL6DIR24G12L195H4U5" 








90 PAINT (127,100),1,14 
100 goTo 100 

O programa funciona assim: 

As linhas numeradas de 10 a 30 esta- 
belecem as condições iniciais, selecio- 
nando uma tela de alta resolução. 

Os comandos DRAW das linhas 40 
a 80 formam o contorno do navio. Este 
comando opera somente no cordão de 
instruções contidas entre aspas. 

A linha 40 é a mais simples, com um 
curto cordão de instruções que dizem à 
máquina onde começar o desempenho, 
e com que cor. À primeira instrução, 
BM, significa ''mover em branco”, co- 
locando a “'caneta”' que fará o desenho 
na posição onde desejamos iniciá-lo. Se 
não houvesse a letra B, a “caneta” tra- 
caria uma reta, enquanto se dirigisse ao 


ponto de partida, que no nosso caso € 
23,96 (note que as coordenadas não es- 
tão entre parênteses, como em outros 
comandos gráficos). A instrução final 
do cordão seleciona a cor preta (Ci no 
MSX e CO no TRS-Color). 

A linha 50 começa a traçar o contor- 
no. Embora pareça confuso, o cordão 
da instrução DRAW é na realidade muli- 
to simples, consistindo de uma série de 
direções e distâncias. As letras contro- 
lam a direção da linha e os números, sua 
distância em pixels. Se não houver um 
número após uma direção, o movimen- 
to será de apenas um pixel, 

Existem 8 direções: U, para cima (up, 
em inglês); R, direita (right); D, para 
baixo (down); L, esquerda (left); E, pa- 
ra cima à direita (45 graus); F, para bai- 
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xo à direita (135 graus); G, para baixo 
à esquerda (225 graus) e H, para cima 
à esquerda (315 graus). 

Se acompanharmos os comandos do 
cordão da linha 50, teremos: à direita 28 
pixels, a 45 graus 2 pixels, para cima 
3 pixels, e assim por diante. Para se 
exercitar, tente transformar o cordão em 
movimentos de lápis, em papel mili- 
metrado, 

As linhas 60 a 80 contêm cordões pa- 
recidos que completam o contorno do 
navio. Pode-se utilizar apenas um cor- 
dão longo em vez de todas essas linhas, 
mas um número grande de instruções 
tende a tornar mais difícil a manipula- 
ção e a correção dos dados. 

Finalizando o desenho, a linha 90 
pinta de preto a silhueta traçada na tela. 
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COMO DESENHAR LETRAS 





Uma das limitações do TRS-Color 
em relação aos programas gráficos é sua 
incapacidade de exibir textos na tela de 
alta resolução (isto não vale para o 
MSX). Não se pode, por exemplo, im- 
primir uma contagem de pontos em um 
jogo que utiliza gráficos (por essa razão, 
o jogo da página 62 é todo exibido em 
tela de textos). 

Para contornar o problema, você de- 
ve projetar seus próprios caracteres uti- 
lizando o comando DRAW. Digite e ro- 
de este programa e você verá a interjei- 
ção ALÔ! ser traçada: 


10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 015$="D4R3U4LIBRSDARIBARZUÁRID 
2NL3D2BR2Z2ULBUIUZ” 

50 DRAW "BM110,50;C358"+0I5 

60 GOTO 60 


na 


30 SCREEN 2 

40 015="D4R3U4L3BASD4RIBRZU4RID 
2NL 3D2BR2UlBULU2" 

50 DRAW "BM110,50;C35B"+0OIS 

60 GOTO 60 

No TRS, a mensagem é traçada em 
PMODE3, uma modalidade de quatro 
cores. No MSX, em SCREEN 2, a tela 
de alta resolução (lembre-se de que o 
MSX tem outras maneiras de escrever 
textos nesta tela). 

A linha 40 mostra mais uma caracte- 
rística do comando DRAW. Como ele 
opera em um cordão de instruções, vo- 
cê poderá definir variáveis e chamá-las 
mais tarde com um comando DRAW no 
programa. 

As instruções em OIS dizem ao com- 
putador como traçar as letras para for- 
mar ALÓÔ!. Tente transformá-las em 
movimentos de lápis, como fez anterior- 
mente, lembrando-se de que B significa 
espaço em branco; assim, nenhuma li- 
nha aparecerá no desenho quando uma 
instrução for precedida de B. 

Se você quiser exibir em telas de grá- 
ficos outras palavras ou expressões — 
QUE AZAR! ou BEM FEITO!, por 
exemplo — poderá estabelecer mais cor- 
dões, tais como QAS$ e BF$. Tente ela- 
borar as instruções para uma dessas ex- 
pressões em papel gráfico. Uma vez que 
tenha definido os cordões, você poderá 
chamá-los de volta sempre que forem 
necessários ao programa. 

O ALÔ! é traçado pela linha 50. A 


posição inicial é 110,50 e a cor é de nú- 
mero 3; a palavra será impressa em ta- 
manho 8 (escala dupla). O 8 pode ser se- 
guido por um número de 1 a 62, no TRS, 
ede 1a 255, no MSX. O | é um quarto 
do tamanho, o 4 é o tamanho normal 
(a escala que se obtém se não houver ins- 
trução) e o 8 é o tamanho duplo. 
Como demonstra a linha 50, é possi- 
vel unir cordões de instruções DRAW 
como quaisquer outros cordões. Se vo- 
cê quiser chamar cordões como QAS$ ou 
BF$S, poderá fazê-lo do mesmo modo 
que na linha 50. Movimente para o pon- 
to de partida utilizando BM e, então, es- 
tabeleça a cor por Ce o tamanho por 8. 





MENSAGENS MAIS LONGAS 


É muito trabalhoso definir cordões 
para cada mensagem quando se quer exi- 
bir na tela um grande número delas. 

Para simplificar a tarefa, defina to- 
dos os caracteres que irá utilizar, digitan- 
do um programa como o que se segue: 


10 PMODE 3,1 

20 DIM LES(26) 

30 PCLS 

40 FOR K=0 TO 26 

45 READ LES(K) :NEXT 

50 FOR K=0 TO 9 

55 READ NUS (K) :NEXT 

60 DATA BR2,ND4R3D2NLIND2BE2,ND 
4R3DGNL2FDNL3BU4BR2,NR3D4RIBU4B 
R2,ND4R2FD2GL2BE4BR, NA3D2NR2D2R 
3BU4BR2 

70 DATA NR3D2NR2D2BE4BR, NR3D4R3 
U2LBE2BR, D4BR3U2NLIUZBRZ2,ND4BR2 
|, BDAREUIL2RIBR2, D2ND2NF2E2BR2 
BO DATA D4R3BU4BR2, ND4FREND4BR2 
|, ND4F 3DU4BR2, NR3D4R3U4BR2,ND4R3 
D2NL3BE2, NR3D4RINHU4 BR2 

90 DATA ND4R3D2L2F2BU4BR2, BD4R3 
U2L3U2R3BR2, AND4RBR2, DAR2U4BR2, 
D3FEU3BR2, DAEFU4BRZ2 

100 DATA DF2DBL2UEZUBR2,DEND2EU 
BR2,R3GIDRIBU4BAZ. 

110 DATA NR2D4R2U4BR2, BDEND4BRZ2 
|, R2D2L2D2R2BU4BR2, NR2ZBD2NA2BD2R 
2U4BR2, D2R2D2U4BR2, NR2D2R2D2L2B 
E4, D4R2U2L2BE2BR2,R2ND4BR2,NR2D 
4R2U2NL2U2BR2, NR2D7R2D2U4 BRZ2 
120 SCREEN 1,0 

130 A$="TESTANDO0123456789" 

140 DRAW "BM60,50C358B" 

150 GOSUB 9000 

160 coTo 160 

9000 FOR K=1 TO LEN(AS) 

9010 BS=MIDS (AS,K,1) 

9020 IF BS$>="0" AND BS$<="9" THE 
N DRAW NUS (VAL (BS)):GOTO 9050 
9030 IF BS$=" " THEN N=0 ELSE N= 
ASC(BS)-64 

9040 DRAW LES(N) 





9050 NEXT 
9060 RETURN 


a 


20 DIM LES(26) 

30 CLS 

40 FOR K=0 TO 26 

45 READ LES(K) :NEXT 

50 FOR K=0 TC 9 

95 READ NUS (K) :NEXT 

60 DATA BR2, ND4R3D2NL3IND2BE2,ND 
4R3DGNL2FDNL3BU4BRZ, NR3D4RIBUAB 
R2,ND4R2FD2GL2BE4BA,NR3D2NR2D2R 
JBU4BRZ 

70 DATA NR3D2NR2D2BE4BR, NR3D4R3 
UZLBE2BR, D4BR3U2NLIU2BR2, ND4BR2 
+, BDAREU3L2RIBR2, D2ND2NF2E2BR2 
80 DATA D4R3BU4BRZ2, ND4FREND4BRZ 
| ND4F 3DU4BR2, NR3D4RIU4BR2, ND4R3 
D2NL3BE2, NR3ID4RINHU4BRZ 

90 DATA ND4R3D2L2F2BU4BR2, BD4R3 
UZL3UZR3BR2, RND4RBR2, DARZU4BR2, 
D3IFEUJBRZ, DAEFU4BRZ 

100 DATA DF2DBL2UEZUBR2,DEFNDZEU 
BR2,R3GIDR3IBU4BRZ 

110 DATA NR2D4R2U4BRZ2, BDEND4BRZ 
+-R2D2L2D2R2BU4BRZ2, NAZBD2NRZ2BD2R 
2U4BR2, D2R2D2U4BR2, NR2D2R2D2L2B 
E4,DI4R2U2L2BE2BR2, RAZND4BRZ, NR2D 
4R2U2NL2U2BR2, NR2D2R2D2U4BR2 
120 SCREEN 2 

130 A$="TESTANDO0123456789" 

140 DRAW "BM60,50C158B” 

150 GOSUB 9000 

160 GOTO 160 

9000 FOR K=l TO LEN(AS) 

9010 BS=MIDS(AS,K,1) 

9020 IF BS$>="0" AND BS<="9" THE 
N DRAW NUS (VAL (BS) ):GOTO 9050 
9030 IF B$=" " THEN N=0 ELSE N= 
ASC(BS)-64 

9040 DRAW LES(N) 

9050 NEXT 

9060 RETURN 


O conjunto de caracteres — letras de 
Aa Z e algarismos de O a 9 — está con- 
tido nas linhas DATA de 60 a 110. O 
conteúdo destas é transferido para duas 
variáveis alfanuméricas — LES$ e NUS 
— pelas linhas 40 a 55. 

Para utilizar esse conjunto é necessá- 
rio definir a mensagem a ser escrita, as- 
sim como a posição inicial, a cor e o ta- 
manho. A linha 130 coloca em A$ uma 
mensagem de teste — TESTANDO0123 
456789 — que pode ser substituída por 
qualquer outra de sua criação. A linha 
140 estabelece a posição inicial, a cor e 
o tamanho. Com a mensagem e suas ca- 
racterísticas definidas, podemos dizer à 
máquina que desenhe a mensagem. A 
sub-rotina de impressão — que começa 
na linha 9000 — examina cada caractere 
em A$, um por vez, acha as instruções 
apropriadas nos conjuntos (veja progra- 
mação de jogos, na página 101) e, em 
seguida, desenha o caractere na tela, 















| 


Modificando AS na linha 130 e, se 
necessário, a posição inicial na linha 
140, podemos desenhar a mensagem que 
quisermos. Como a parte do programa 
que traça as letras é uma sub-rotina, te- 
remos quantas mensagens desejarmos, 
mas devemos colocá-las sempre em AS. 

O procedimento será muito útil, so- 
bretudo se tivermos uma série de men- 
sagens para exibir em diversos pontos da 
tela durante um jogo. 

Comece seus programas na linha 120, 
ou seja, acima das linhas DATA; lem- 
bre-se, porém, de que as linhas DIM, 
CLEAR ou PCLEAR em geral precisam 
ficar no início. Quando quiser escrever 
uma mensagem, estabeleça cordões com 
as palavras escolhidas apenas no ponto 
em que elas forem necessárias ao progra- 
ma. Em seguida, acrescente o DRAW, 
como na linha 140, e chame a sub-rotina 
de impressão com GOSUB 9000. 


E FINALMENTE... 





Uma vez elaboradas as instruções pa- 
ra desenhar um perfil, podemos posicio- 
ná-lo em qualquer direção, ou mesmo 
de cabeça para baixo. Basta, para isso, 
incluir uma nova instrução no cordão: 
A, seguida de um valor de O a 3. 

AQ posiciona o desenho — no nosso 
exemplo, a casa — a O graus, ou seja, 
na vertical. Al desenha a casa deitada 
sobre seu lado direito — a 90 graus. AZ, 
de cabeça para baixo — a 180 graus. A3, 
finalmente, traça a casa deitada sobre 
seu lado esquerdo — a 270 graus. 

O controle da direção em que a ima- 
gem é traçada permite obter o mesmo 
desenho, de quatro maneiras diferentes, 





” iii A EE 





a partir de um único conjunto de instru- 
ções. Não será necessário, portanto, in- 
formar ao computador como desenhar 
cada versão. 

Para ver como esse recurso funciona, 
digite e rode o programa a seguir. 


10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 SS$="NRIGEBF4AU4R2D6FZDIZLÓOU6L 
4D6L6U12” 

50 FOR K=1 TO 20 

60 D=RND(200)+27:E=RND(140)+27: 
C=RND (3) +1:A=RND(4)-1 

70 DRAW"BM"+STRS (D) +”, "+STRS (E) 
+"C"+STRS(C)+"A"+STAS (A) +"XSS;" 
BO NEXT K 

90 GoTo 90 


ny 


30 SCREEN 2 

40 S$="NR1I6E8F4U4R2D6F 2DI2LGU6L 
4D6L6UI2” 

50 FOR K=-1 TO 20 

60 D=INT (RND(1)*200)+28:E=INT(R 
ND (1)*140)+28:C=INT(RND(1)*15)+ 
1:A=INT(RND(1)*4) 

70 DRAW "BM"+STR$S (D)+”,"+STRS(E 
J+"C"+STRS$ (C)+"A"+STRS (A)+"XSS; 


80 NEXT K | 
90 GoTO 90 

Serão desenhadas 20 casas, todas 
iguais, exceto na cor e na orientação. 

O formato das casas é definido na li- 
nha 40. Na linha 60, quatro números 
aleatórios são escolhidos: D e E são as 
coordenadas da posição inicial,C é acor, 
e A, a direção da imagem. 

A linha 70 desenha a casa, acrescen- 





O Spectrum usa arcos e círculos para desenhar um campo de golfe. 


tando ao cordão todos os parâmetros 
gerados na linha 60. A função STRS$ 
converte as variáveis numéricas em cor- 
dões — na verdade, coloca o valor des- 
tas variáveis entre aspas. Por exemplo, 
se D=2, então STR$=''2"'. 

A linha 70 move, então, a “caneta ' 
para uma posição qualquer e, usando 
uma cor aleatória, desenha, na direção 
escolhida ao acaso, as instruções conti- 
das em S$. O X antes de S$ significa 
“execute as instruções contidas em 8$” 
e permite a adição de um cordão a ou- 
tro durante o desenho, sem a necessida- 
de de utilizar o sinal “+”. 

O emprego do X apresenta a vanta- 
gem de economizar a ''memória de cor- 
dões”” da máquina — que é limitada —, 
pois permite unir cordões sem criar no- 
vos cordões. O uso do “ +””, ao contrá- 
rio, cria um novo cordão, que vai ocu- 
par boa parte da memória que estamos 
querendo economizar. 


É possível colocar textos na tela grá- 
fica do Apple 1? 

Infelizmente, os microcomputado- 
res compatíveis com a linha Apple Il 
não permitem misturar texto e gráficos 
na mesma tela. Essa limitação reduz | 
bastante o campo de ação do iniciante | 
que quer desenvolver jogos ou outros | 
tipos de programas gráficos que preci- 
sam de alguma espécie de título ou 
identificação na tela. 

Como os computadores da linha 
MSX e TRS-Color, os micros da linha 

| Apple Il também dispõem de um co- | 
mando DRAW. Porém, se o objetivo 
deste recurso é semelhante em todos 
os computadores mencionados, a filo- 
sofia de sua utilização é bastante dife- 
rente, quando se trata do Apple. | 

O funcionamento do comando | 
DRAW do Apple baseia-se nas tabelas 
de forma (shape tables), que residem 
em uma certa parte da memória e que 
determinam um verdadeiro 'mapa”' de 
movimentação do cursor gráfico, com 
base em números binários que identi- 
ficam quais os bits que devem ficar 
acesos ou apagados na tela. À especi- 
ficação de tabelas de forma será expli- 
cada em um artigo futuro. Basta saber, 
por enquanto, que letras e números de 
qualquer tamanho podem ser desenha- 
dos na tela, um a um, com o comando | 
DRAW. 

















ASSEMBLER 





PARA O APPLE 


O Assembler do Apple é bem mais 
curto do que os programas correspon- 
dentes para o Spectrum, o MSX e o 
TRS-Color. Isto ocorre porque seu mi- 
croprocessador — o 6502 — tem bem 
menos instruções que o Z-80 e o 6809, os 
microprocessadores das outras máquinas. 

Este programa não precisará traba- 
lhar com a infinidade de mnemônicos do 
£-S50, nem terá de calcular os pós-bytes 
do 6809. 

Devido ao seu tamanho, ele é mais 
rápido — o que não significa, porém, 
que sua velocidade seja comparável à 
dos programas escritos em código. Ele 
levará alguns minutos para traduzir um 
longo programa em Assembly. 

E bom lembrar que o TK-2000 já vem 
com um miíni-Assembler embutido. 


O ASSEMBLER | 


10 HOME 

20 DIM K5S(77),K1(77),K2(77):H35 
= "0123456789ABCDEF":RS = CHR 
S (13) 

30 DIM T$(200),RR(100),ZS(100) 





40 P = O: FOR II = 1 TO 76: REA 
D KS(II),KI(II),K2(II): IF KS(I 
I) € > "*" THEN NEXT 

50 DATA ADC, 105,101,AND,41, 


37,ASL,,6,BCC,,144,BCS,,176,BEQ 
|: «240, BIT,,36,BMI,,48 

60 DATA BRBK,,.BYT,,-256 

O DATA BNE,,208,BPL,, 16, BVC 
1 +.80,BVS,,112,CLC,24,,CLD,216,, 
CLI,88B,,CLV, 184, 

80 DATA CMP,201,197,CPX,224,2 
28, CPY,192,196,DEC,,198,DEX,202 
» «DEY,136,,E0R,73,67 

90 DATA JINC,,230,INX,232,,INY 
200, ,JMP,,68B,JSR,,24 

100 DATA ,,,,.,1++  LDA,169,165, 
LDX,162,166,LDY 

110 DATA 160,1649,L98,,70,..+» 
000 » «NOP, AI pr rrrs e rORA,9,S, 
PHA,/2,,PLA,104,,PLP 


120 DATA 40, , PHP,B,,,,,+, ROL 
++ 38,ROR,,102 
130 DATA ARTI,64,,RTS,96,,SBC 


1, 233,229,58EC,56,,SED,248,,SEI,1 
20, STA,,133,STX,,134 

140 DATA STY,,132,TAX,170,,TA 
Y,168,,TSX,18B6,,TXA,138,,TXS,15 
4, TYA,152, 

150 DATA WOR,,-256,*,, 


16: VTAB 1: IN 
NORMAL : 


160 ': HTAB 
VERSE PRINT "MENU": 
PRINT : PRINT : PRINT 
170 PRINT TAB( 10);"1l - LER O 
DISCO”: PRINT : PRINT TAB( 10 
)J:;"2 - GRAVAR NO DISCO”: PRINT 

: PRINT 'TAB( 10);"3 - MONTAR" 

180 PRINT PRINT TAB( 10);"4 
- EDITAR LIMHA": PRINT : PRINT 
TAB( 10);"5 - APAGAR LINHA”: 


HOME 


PRINT : PRINT 'TAB( 10);"6 - LI 

STAR” 

190 PRINT : PRINT TAB( 10);"7 
= SAIDA”: PRINT PRINT : PRIN 


T TAB( 10);"SELECIONE A OPCAO 


200 GET AS: IF VAL (AS) <10 
R VAL (AS) > 7 THEN 200 

210 JJ = vAL (AS): HOME 

220 ON JJ GOSUB 1080,1100,250, 
1120,1200,1230,1300: PRINT : PR 
INT "QUALQUER TECLA PARA CONTIN 
UAR” 

230 GET AS: IF AS = "” THEN 23 
Ô 


240 GOTO 160 
250 KO = 0:K9 = 0:PS = 0:PO = O 


260 PS = PS + 1: IF PS < = 3T 

HEN K = KO:P = PO: PRINT "ETAPA 
"PS: GOTO 280 

270 PO = P: RETURN 

280  GOSUB 980 

290 GOSUB 910:0PS = 18: IF LE 

FTS (0P8,1) = "“*"* AND PS = 3 TH 
EN PRINT OPS 

300 IF JLEFTS (0P8,1) = "*" TH 

EN 280 

310 IF OPS = "END" AND PS = 3 


PRINT : PRINT " FIM. ENDE 
FINAL: C;P -1 
320 IF OPS = "END" THEN 260 
330 IF OPS < > "ORG" AND OPS 
S > "Pê=" THEN 370 
J40 GOSUB 910:S = O: IF LEFTS 
(13,1) = "*" THEN 9 = P:I3S = 
RIGHTS (IS, LEN (18) - 1) 
350 P = VAL (13) + 8: IF PS = 
3 THEN PRINT º ORG” ;P 
360 GOTO 280 
370 IF P = O THEN PRINT 
A ORG”: RETURN 
380 IF OPS < > "SPt=" AND OPS 
< > "TKT” THEN 420 
390 GOSUB 910: IF PS = 3 THEN 
PRINT * TXT"; 18; TAB( 20); 
400 FOR J = 2 TO LEN (I5):BY 
= ASC ( MIDS (IS + 18,J,1)): I 


THEN 
RECO 


“FALT 


F J > = LEN (18) THEN BY = 13 

410 GOSUB 870: NEXT J: GoTo 28 

0 

420 IF JLEN (OPS) < > 3 THEN 
FOR I = 1 TO 1: GOTO 440 


Traduzir mnemônicos Assembly para 
código de máquina é uma tarefa 
extremamente cansativa. Deixe o Apple 
trabalhar por você: ele o fará 

com rapidez e facilidade. 


430 FORI =1+ 3% ( ASC (OPS 
) - 65) TO 76: IF OPS = K8(I) T 
HEN 490 

440 NEXT : IF PS = 3 THEN PRI 
NT OPS 

450 IF LEFTS (18,1) = ".” THE 
N I8 = RIGHTS (IS, LEN (13) - 

1) 


460 GOSUB 1010:RR(Q2) = P: IF 
IS = *"" THEN 290 

470 IF PS = 3 THEN PRINT "(LI 
NHA NAO RECONHECIDA)” 


480 GOTO 280 


490 ADS = "40":R = O: IF K2(I) 
< > O THEN GOSUB 910:ADS = 15 
:0P = K2(1I) 

500 IF PS = 3 THEN PRINT " "; 
OPS;: IF K2(I) < > O THEN PRI 
NT ”" ":;ADS; 

510 IF LEFTS (ADS,1) = "4" TH 
EN ADS = RIGHTS (ADS, LEN (ADS 
) - 1):0P = KI(I) 

520 IF RIGHTS (ADS,1) < > ") 
” THEN 530 

525 OP = OP - 20:ADS = MIDS (A 
DS,2, LEN (ADS) - 2): IF OP = 4 


8 THEN OP = 100 

530 IF RIGHTS (ADS,2) = 

THEN OP = OP + 16:ADS = 

(ADS, LEN (ADS) - 2) 

540 IF ADS = “A” THEN ADS"0":O0 

P = OP+4 

550 IF RIGHTS (AD8,2) < 

Y” THEN 580 

560 OP = OP + 16:ADS = 

ADS. LEN (ADS) - 2): IF 
(0P3,1) < > FX” THEN 

- 4:R = 65536 

570 IF RIGHTS (AD$S,1) = 

HEN ADS = MIDS (ADS,2, LEN 

S) - 2):R = R - 65536 

580 8 = 1 

590 IF ADS = "" THEN 770 

600 XS = JLEFTS (ADS,1): 

N (ADS) = 1 THEN BDS = "*: 
610 

605 BDS = 

0) = 2) 

610 IF XS = "x" THEN R = R+P 
* S:ADS = BDS: GOTO 580 


"2a" 
LEFTS 


ndo 


LEFTS ( 
RIGHTS 
OP = OP 


ai Ji T 
(AD 


LF LE 
GOTO 


RIGHTS (ADS, LEN (AD 


620 IF XS = "+" THEN ADS = BDS 
» GOTO 590 

630 IF X59 = "=" THEN ADS = BDS 
8 = = 8: GOTO 590 

640 Q = 0 

650 IF (X8 < > "8" AND XS < 

> ".”) OR BD$S < "0" OR BDS > =. 
"G”" THEN 690 

660 FOR Q2 = O TO 15: IF LEFT 

3 (BDS,1) < > MIDS (H8,02 + 1 
11) THEN 680 

670 Q = Q* 16 + O2: IF LEN (B 
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E TRADUÇÃO DE MNEMÔNICOS IE - MANIPULAÇÃO 
ASSEMBLY PARA CÓDIGO —  DERÓTULOS 

—HEXADECIMAL E | TRANSFERÊNCIA DO PROGRAMA 
E CÁLCULO DE SALTOS EM CÓDIGO 


E DESVIOS — PARA À MEMÓRIA 





- 1) ma 
772 RP = R-P- 2Z:0P = ABS ( 
ABS ((RP < D) * INT (RP / 256) 
) * 256 - ABS (RP - (RP > = 2 
56) * 256 * INT (RP / 256))) 
775 IF LEFTS (OPS,1) = “BF AN 
D (0 = PP AND 0P > 0) THEN R = 
RP 
780 IF LEFTS (OP8S,1) = "J* OR 

LEFTS (0P3,1) = “W” THEN R = 
R + 65536 
790 IF R > 255 THEN OP = OP + 
B 
B0O0 K2 = K2(I):PA = ABS ( ABS 
((O0OP < 0) * INT (0P / 16)) * 1 
6 - ABS (OP - (OP > = 16) *1 
6 * INT (OP / 16))) 
805 IF PA = 10 THEN KZ = 0 
B10 IF PS = 3 THEN PRINT TAB 
( 16); :BY = P / 256: GOSUB B90: 
BY = P - 32768: GOSUB 890: GOSU 
B 850 
B20 IF OP > = O THEN BFT = OP 
f 256: GOSUB B/70:BY = OP: GOSUB 


830 IF KZ = O THEN 280 

840 GOSUB 850:BY = R - 256 * 
INT (R / 256): GOSUB 880:BY = R 
/ 256: GOSUB 870: GOTO 280 

850 IF PS = 3 THEN PRINT” "; 

860 RETURN 

870 IF INT (BY) < = O THEN 

RETURN 

880 P = P + 1:YY = ABS ( ABS ( 
(BY < 0) * INT (BY/ 256)) *2 

56 - ABS (BY - (BY > = 256) * 
256 * INT (BY / 256))): IF PS 
= 3 THEN POKE P - 1,YY 

890 BY = ABS ( ABS ((BY< 0) * 

INT (BY / 256)) * 256 - ABS 

(BY - (BY > = 256) * 256 * JIN 
T (I / 256))) 

895 YY = ABS ( ABS ((BY < 0) * 

INT (BY / 16)) * 16 - ABS (B 

Y - (BY> =16)*16* INT(B 
Y / 16))): IF PS = 3 THEN PRIN 
T MIDS (HS,BY / 16 + 1,1); MID 
S (HS,YY + 1,1); 

900 RETURN 

D$) = 1 THEN BDS = "”: GOTO 660 730 IF ADS <"0” OR ADS >"9” 910 IF K>NTHENIS= "END: 





675 BDS = RIGHTS (BDS, LEN (BD THEN 750 | RETURN 
8) - 1): GOTO 660 740 Q = Q * 10 + ASC (AD3) - 4 920 Kl = K9 + 1: IF K9 > = LE 
680 NEXT “AR = R+Q * S:ADS = 8: IF JLEN (ADS) = 1 THEN ADS = N (TS(K)) THEN IS = "/FALTANDO/ 
BDS: GOTO 580 "": GOTO 730 ": RETURN 
690 IF XS < "A" OR XS > "Z” TH 745 ADS = RIGHTS (ADS, LEN (AD 930 K9 = Kl: IF MIDS (TS(K),K1 
EN 720 $) - 1): GOTO 730 51) = * * THEN 920 
700 IS = ADS: GOSUB 1010: IF IS 750 BR = R+Q *5S: GOTO 580 940 IF K9 > LEN (TS(K)) THEN 
< > "* THEN GOSUB 1050 760 IF PS = 3 THEN PRINT "(EN IS = MIDS (TS(K),K1L,K9 - K1): 
710 R = R + BR(Q2) * S:ADS = IS  DERECAMENTO INVALIDO)”; RETURN 
: GOTO 580 770 PP = (OP - ( ABS (OP) > = 950 IF MID$S (TS(K),K9,1) < 2 
720 IF X8< "0" ORXS>"9"THÃEBRBM*INTI(OP/B)> =ã4) * * THEN K9 = K9 + 1: GOTO 940 2 


EN R = O: GOTO 760 * 4 + (0P> = - 4 ANDOP< = 960 IS = MIDS (TS(K),K1L,K9 - K É 














1) 
970 RETURN 
980 IF K9 < = LEN (T3(9)) AN 


D PS = 3 THEN IF LEN (TS(K)) 
> K9 - 1 THEN PRINT RIGHTS (T 


S(K), LEN (TS(K)) - K9 + 1); 
990 K = K + 1:K9 = O: IF PS = 3 
THEN PRINT 

1000 RETURN 

1010 X3 = ** 

1020 IF IS< PA” OR IS> ="[l 
* THEN 1040 

1030 X$ = XS + LEFTS (18,1): 1 
E LEN (13) = | THEN 13 = "TT: G 
OTO 1020 

1035 IS = RIGHTS (IS, LEN (18) 
- 1): GOTO 1020 


1040 IF IS < > ** THEN RETURN 
1050 FOR 02 = 1 TOVV: IF XS = 
Z5(02) THEN 1070 

1060 NEXT :VV = UV + 1:Z5(VV) 

= X$8:02 = VV:RR(UV) = 32768 
1070 RETURN 

1080 INPUT "NOME DO ARQUIVO "; 

ARS:DS = “T: REM CTAL-D 

1090 PRINT D3;"OPEN";ARS: PRIN 

T D3;"READ";ARS: INPUT N: FOR J 
- 1 TO N: INPUT TS(J): NEXT 
PRINT DS;"CLOSE”; ARS: RETURN 
1100 INPUT “NOME DO ARQUIVO "; 

ARS:DS = “*: REM CTRL-D 

1110 PRINT D$S;"OPEN";ARS: PRIN 

T DS;"WRITE";ARS: PRINT N: FOR 
J = 1 TO N: PRINT TS(J): NEXT : 
PRINT DS;"CLOSE";ARS: RETURN 
1120 K = O: INPUT "QUAL O NUMER 
O DA LINHA ";K: HOME 

1140 IPS = **: PRINT K;: INPUT 
IPS: IF IPS = *"*" THEN RETURN 
1150 K2 = K / 10: IF KZ > N THE 
NKZ=-N+1]:N=N+1 

1160 IF K2 < .1 THEN K2 = .l 


1170 IF KZ = INT (K2) THEN 11 
90 

1180 K2 = INT (K2) + 1: FOR K3 
-NTO KZ STEP - 1:TS(K3 + 1) 
- T$(K3): NEXT :N = N + 1 
1190 TS(K2) = IPS:K = K + 10: G 
OTO 1140 

1200 K = O: INPUT "QUAL O NUMER 


O DA LINHA C;K:K2 = K / 10 
1210 IF KZ >NORKZ<1IORKZ 
2 INT (K2) THEN RETURN 


nl 


1220 FOR K3 = K2 TO N:TS(K3) = 


TS(K3 + 1): NEXT :N = N- 1: R 
ETURN 
1230 IF N = O THEN RETURN 


1240 K = 0:K2 = O: HOME : INPUT 
"QUAL A PRIMEIRA E A ULTIMA LI 
NHA ";K,K2:K1l = K / 10:K2 = K2 


! 10 

1250 IF KZ > N THEN KZ =NW 
1260 IF Kl < 1 THENK1I=1 
1270 HOME FOR K3 = K1l TO K2: 
PRINT * ";K3 * 10;”" "sTS(K3): 

NEXT : RETURN 

1300 END 


Nas linhas 1080 e 1100, a variável DS 
deve conter o caractere produzido pelas 
teclas <CTRL> e <D> pressionadas 
| ao mesmo tempo. DS, portanto, não es- 


tá vazia. CTRL + D é um caractere de 
controle para uso do disco. 


COMO FUNCIONA O PROGRAMA 





Uma vez digitado o programa, rode- 
o. Normalmente, ele é colocado na área 
livre da memória que vai de 300 até JEF, 
em hexa, ou de 768 até 1007, em deci- 
mal. Se quisermos colocá-lo em código 
em outro local, devemos proteger esta 
área da memória (veja página 88). 

Depois que o programa for rodado, 
surgirá um menu na tela. Para entrar um 
programa em Assembly, deve-se esco- 
lher a opção 4, que diz “EDITAR LI- 
NHA”. O Assembler usa linhas BASIC 
com números múltiplos de 10. 

A primeira linha — número 10 — de- 
ve conter o endereço inicial do progra- 
ma em código. Ela ficará mais ou me- 
nos como esta: 


10 org 800 


«.. determinando que o programa em 
código seja colocado na memória a par- 
tir deste endereço. Se tivermos protegi- 
do outra área da memória para colocar 
nosso programa em código, a origem 
deve ser o endereço inicial daquela por- 
ção da memória. 

Depois da primeira linha, os núme- 
ros de linha múltiplos de dez aparecem 
automaticamente, toda vez que se pres- 
siona a tecla RETURN. Cada linha de- 
ve conter apenas um mnemônico e seus 
operandos. Caso se pretenda inserir uma 
linha entre duas já existentes, utiliza-sé 
um número de linha intermediário — e 
o programa se encarrega da inserção. Os 
rótulos, ou labels — que indicam os lo- 
cais para onde o programa será desvia- 
do —, devem ficar no início da linha, 
precedidos de um ponto. Os rótulos pre- 
cisam ter mais de uma letra e não po- 
dem ser iguais à nenhum mnemônico. 
São empregados mnemônicos padrão do 
6502, com uma exceção: o uso do 
ponto e virgula no lugar da virgula. Is- 
to é necessário porque o programa uti- 
liza a instrução INPUT para receber as 
linhas. Uma virgula provocaria a men- 
sagem de “EXTRA IGNORADO”. 

Caso deseje evitar a tradução de uma 
linha, coloque um asterisco antes dela. 
Ao pressionar RETURN, surgirá a pró- 
xima linha, mas se a mesma tecla for 
pressionada novamente, sem que qual- 
quer coisa tenha sido escrita na linha, 
o programa retornará ao menu. 

O menu fornece a opção de listar o 
programa. Se outra tecla for pressiona- 
da, volta-se ao menu. Podemos também 
optar por apagar uma linha, ou simples- 
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mente escrever a nova, com o mesmo 
número no modo de edição. 

Quando estivermos satisfeitos com o 
programa em Assembly que digitamos, 
podemos acionar a opção de ''monta- 
gem”” do programa. O Apple mostrará, 
então, os mnemônicos acompanhados 
dos códigos hexa correspondentes, ao 
mesmo tempo em que coloca estes có- 
digos na memória. 

Pode-se gravar o Assembler em fita 
ou disco, como qualquer outro progra- 
ma (veja página 53). Os mnemônicos — 
ou programa fonte — devem ser grava- 
dos e lidos em disco usando as opções 
correspondentes. 

O programa em código, por sua vez, 
pode ser gravado em fita ou disco utili- 
zando-se o monitor do Apple, ou por 
meio do comando BSAVE. 

Para rodá-lo, deve-se sair do Assem- 
bler, por meio da opção “SAÍDA”, e 
digitar: 


CALL 800 





O que fazer quando um programa 
longo — como este Assembler — não 
funciona depois de digitado? 

Mesmo o programador mais expe- 
rente tem problemas ao digitar progra- 
mas longos. Sempre se comete algum 
erro, e é muito difícil localizá-lo. 

A maioria dos erros provoca uma 
mensagem que orienta o programador 
na direção correta (veja página 141). 
Mas programas longos seguem cami- 
nhos tortuosos, entram em laços e fa- 
zem saltos, de modo que o número de 
linha indicado na mensagem de erro al- | 
gumas vezes não ajuda em nada. | 

Por tudo isso, é necessário contar 
com uma função de rastreamento, co- 
mo a função TRACE, disponível no Ap- 
ple. Com ela podemos ver o número da 
linha que está sendo executada, o que 
torna mais fácil diagnosticar os erros. | 
Para utilizá-la, basta digitar TRACE no | 
modo imediato, isto é, sem número de 
linha na frente, Depois, rode o progra- 
ma e veja o rastreamento em ação. A 
função é desativada por NONTRACE. 

Assim, não descarte o programa se 
ele não funcionar na primeira tentati- 
va. Procure pelos erros mais comuns. 
Se ocorrer um “OUT OF DATA”, por 
exemplo, verifique com atenção suas 
linhas DATA. Se você tiver esquecido | 
um número, ou mesmo uma vírgula, O 
programa não funcionará. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





MNEREENO PRÓXIMO NUÚMEROHHEEREI 


PROGRAMAÇÃO BASIC 
Aprenda a empregar as cadeias de caracteres. Elas serão 
úteis em quase todo tipo de programa 
CÓDIGO DE MÁQUINA 
Um programa que dimensiona os saltos e faz a tradução dos 
mnemônicos Assembly: o que mais poderíamos desejar? 
APLICAÇÕES 
Precisão e velocidade são fundamentais para a digitação e o 
processamento de textos. Domine o teclado. 


PROGRAMAÇÃO BASIC 


Códigos de controle podem substituir comandos 
em BASIC. Veja as vantagens. 





